home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
HAMRADIO
/
LOGBOOK.ZIP
/
OBLASTEN.PRG
< prev
next >
Wrap
Text File
|
1985-12-03
|
2KB
|
84 lines
* OBLASTENTER VERSION 851114 PUTS DATA IN OBLAST DATABASE
IF FILE (logbook)
SELECT primary
USE &logbook INDEX &logbook
SELECT SECONDARY
USE &oblast
STORE T TO cflag
STORE 0 TO oblastn
STORE ' ' TO df
STORE ' ' TO callcard
DO WHILE cflag
ERASE
@ 3,1 SAY ' '
ACCEPT 'Which Oblast (0 to terminate) ?' TO oblastn
IF &oblastn < oblastm
IF &oblastn = 0
STORE F TO cflag
ELSE
SELECT SECONDARY
* GO DIRECTLY TO RECORD
GOTO &oblastn
@ 8,1 SAY ' '
IF dcall = ' '
? 'Oblast ',&oblastn,' is not worked'
ELSE
DISP
ENDIF
@ 10,1 SAY 'Do you want to update the entry (Y/N) ?'
@ 10,40 GET df
READ
IF df = 'Y'
STORE ' ' TO callcard
SELECT PRIMARY
@ 12,1 SAY 'What is the call ? '
@ 12,21 GET callcard
READ
FIND &callcard
@ 14,1 SAY ' '
IF # = 0
? callcard,' is not in log'
ELSE
STORE T TO qflag
DO WHILE call = callcard .AND. qflag
@ 20,1 SAY ' '
DISP
@ 22,2 SAY ' '
ACCEPT 'This one (Y/N) ?' TO df
IF df = 'Y'
STORE F TO qflag
ENDIF
SKIP
ENDDO
IF qflag
* DON'T update entry
ELSE
SKIP -1
SELECT SECONDARY
REPLACE dcall WITH call
REPLACE ddate WITH date
REPLACE dtime WITH time
REPLACE dband WITH band
REPLACE dmode WITH mode
REPLACE dstate WITH qslrx
ENDIF
ENDIF
ENDIF
ENDIF
ELSE
? 'ERROR, LARGEST NUMBER IS ',oblastm - 1
WAIT
ENDIF
ENDDO
SELECT PRIMARY
USE
SELECT SECONDARY
USE
ELSE
? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
ENDIF
RELEASE qflag,callcard,df,oblastn,cflag